﻿'By: CHUN SOKCHEA
'Student of Build Bright University
'Mail: chunsokchea@gmailc.om
'Phone: 087 397 317

Public Class myMsgbox
    'Public Shared Sub showWarning(ByVal text As String, ByVal text2 As String)
    '    Dim frm As frmMsgWarning
    '    frm = New frmMsgWarning(text, text2)
    '    frm.ShowDialog()
    'End Sub
    'Public Shared Sub showWarning(ByVal text As String)
    '    Dim frm As frmMsgWarning
    '    frm = New frmMsgWarning(text)
    '    frm.ShowDialog()
    'End Sub
    'Public Shared Sub showFail(ByVal text As String)
    '    Dim frm As frmMgsFail
    '    frm = New frmMgsFail(text)
    '    frm.ShowDialog()
    'End Sub
    'Public Shared Sub showFail(ByVal text As String, ByVal text2 As String)
    '    Dim frm As frmMgsFail
    '    frm = New frmMgsFail(text, text2)
    '    frm.ShowDialog()
    'End Sub
    'Public Shared Sub showSuccess(ByVal text As String)
    '    Dim frm As frmMsgSuccess
    '    frm = New frmMsgSuccess(text)
    '    frm.ShowDialog()
    'End Sub
    'Public Shared Sub showSuccess(ByVal text As String, ByVal text2 As String)
    '    Dim frm As frmMsgSuccess
    '    frm = New frmMsgSuccess(text, text2)
    '    frm.ShowDialog()
    'End Sub
    Public Shared Sub show(ByVal text As String, ByVal text2 As String)
        Dim frm As New frmMessageSuccess(text, text2)
        frm.ShowDialog()
    End Sub
    Public Shared Sub showFail(ByVal text As String, ByVal text2 As String)
        Dim frm As New frmMessageFail(text, text2)
        frm.ShowDialog()
    End Sub

End Class
